Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/get_fi_1/docprevi.frm

Visual Basic Form | 1999-07-04 | 40KB | 1,042 lines

VERSION 5.00
Begin VB.Form frmDocPreview
   BackColor       =   &H8000000B&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Preview"
   ClientHeight    =   6510
   ClientLeft      =   1125
   ClientTop       =   1500
   ClientWidth     =   9780
   Icon            =   "DocPreview.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   434
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   652
   Begin VB.CommandButton cmdZoomOut
      Height          =   405
      Left            =   1680
      Picture         =   "DocPreview.frx":030A
      Style           =   1  'Graphical
      TabIndex        =   18
      ToolTipText     =   "Zoom out"
      Top             =   60
      Width           =   405
   End
   Begin VB.CommandButton cmdZoomIn
      Height          =   405
      Left            =   1200
      Picture         =   "DocPreview.frx":040C
      Style           =   1  'Graphical
      TabIndex        =   17
      ToolTipText     =   "Zoom in"
      Top             =   60
      Width           =   405
   End
   Begin VB.CommandButton cmdPrint
      Height          =   405
      Left            =   270
      Picture         =   "DocPreview.frx":050E
      Style           =   1  'Graphical
      TabIndex        =   16
      ToolTipText     =   "Print"
      Top             =   60
      Width           =   405
   End
   Begin VB.ComboBox cboScale
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      Left            =   2220
      Style           =   2  'Dropdown List
      TabIndex        =   15
      Top             =   60
      Width           =   855
   End
   Begin VB.CommandButton cmdPrevPage
      Caption         =   "<"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   345
      Left            =   4200
      TabIndex        =   14
      ToolTipText     =   "Prev page"
      Top             =   90
      Width           =   315
   End
   Begin VB.CommandButton cmdNextPage
      Caption         =   ">"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   345
      Left            =   4560
      TabIndex        =   13
      ToolTipText     =   "Next page"
      Top             =   90
      Width           =   315
   End
   Begin VB.ComboBox cboPageNo
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      Left            =   4890
      Style           =   2  'Dropdown List
      TabIndex        =   12
      Top             =   60
      Width           =   825
   End
   Begin VB.TextBox txtTotalPages
      BackColor       =   &H80000004&
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   345
      Left            =   5760
      Locked          =   -1  'True
      TabIndex        =   11
      Text            =   "txtTotalPages"
      Top             =   60
      Width           =   1395
   End
   Begin VB.CommandButton cmdClose
      Caption         =   "Close"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   390
      Left            =   8190
      TabIndex        =   10
      Top             =   60
      Width           =   825
   End
   Begin VB.PictureBox PicZ
      BackColor       =   &H8000000D&
      Height          =   5325
      Left            =   60
      ScaleHeight     =   5265
      ScaleWidth      =   9285
      TabIndex        =   2
      Top             =   720
      Width           =   9345
      Begin VB.PictureBox Pic5
         BackColor       =   &H80000009&
         Height          =   2295
         Left            =   120
         ScaleHeight     =   2235
         ScaleWidth      =   2595
         TabIndex        =   9
         Top             =   120
         Width           =   2655
      End
      Begin VB.PictureBox Pic4
         AutoRedraw      =   -1  'True
         BackColor       =   &H80000009&
         Height          =   2715
         Left            =   150
         ScaleHeight     =   2655
         ScaleWidth      =   3015
         TabIndex        =   8
         Top             =   120
         Width           =   3075
      End
      Begin VB.PictureBox Pic3
         AutoRedraw      =   -1  'True
         BackColor       =   &H80000009&
         Height          =   3285
         Left            =   120
         ScaleHeight     =   3225
         ScaleWidth      =   3765
         TabIndex        =   7
         Top             =   90
         Width           =   3825
      End
      Begin VB.PictureBox Pic2
         AutoRedraw      =   -1  'True
         BackColor       =   &H80000009&
         Height          =   3795
         Left            =   90
         ScaleHeight     =   3735
         ScaleWidth      =   4515
         TabIndex        =   6
         Top             =   60
         Width           =   4575
      End
      Begin VB.PictureBox Pic1
         AutoRedraw      =   -1  'True
         BackColor       =   &H80000009&
         Height          =   4215
         Left            =   60
         ScaleHeight     =   4155
         ScaleWidth      =   5325
         TabIndex        =   5
         Top             =   30
         Width           =   5385
      End
      Begin VB.PictureBox PicX
         AutoRedraw      =   -1  'True
         BackColor       =   &H80000009&
         Height          =   4695
         Left            =   30
         ScaleHeight     =   4635
         ScaleWidth      =   6015
         TabIndex        =   4
         Top             =   0
         Width           =   6075
      End
      Begin VB.PictureBox picP
         AutoRedraw      =   -1  'True
         BackColor       =   &H80000009&
         Height          =   5310
         Left            =   0
         ScaleHeight     =   5250
         ScaleWidth      =   6885
         TabIndex        =   3
         Top             =   -30
         Width           =   6945
      End
   End
   Begin VB.VScrollBar VScroll1
      Height          =   5295
      Left            =   9420
      Max             =   500
      TabIndex        =   0
      Top             =   720
      Width           =   330
   End
   Begin VB.HScrollBar HScroll1
      Height          =   330
      Left            =   60
      Max             =   500
      TabIndex        =   1
      Top             =   6060
      Width           =   9345
   End
Attribute VB_Name = "frmDocPreview"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Expo